home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / intg.tst < prev    next >
Text File  |  1999-09-16  |  287b  |  13 lines
  1. // intg test 
  2. deff('[y]=f(x)','y=x*sin(30*x)/sqrt(1-((x/(2*%pi))^2))')
  3. exact=-2.5432596188;
  4. x=abs(exact-intg(0,2*%pi,f));
  5. if x>1.e-8 then  pause,end;
  6. //
  7. comp(f); 
  8. x=abs(exact-intg(0,2*%pi,f));
  9. if x>1.e-6 then  pause,end;
  10. //
  11. x=abs(exact-intg(0,2*%pi,'toto'));
  12. if x>1.e-6 then  pause,end;
  13.